
close all;
[x,y,z] = sphere(30);
    figure;
    axis equal;
    mesh(x,y,z);
    hold on
%  p = [[ 0.09369066, -0.49114363, -0.8660254 ],
%  [ 0.15243493, -0.34490485, -0.92617722],
%  [ 0.19669752,-0.26467734, -0.94406355],
%  [ 0.21994737, -0.30432782, -0.9268267 ],
%  [ 0.26566966, -0.37823487, -0.8867683 ],
%  [ 0.31848665, -0.46706311, -0.82487472],
%  [ 0.36925203, -0.55865395, -0.74266998],
%  [ 0.41291057, -0.64584205, -0.64217825],
%  [ 0.44645779, -0.72396962, -0.52587396],
%  [ 0.46800552, -0.78972317, -0.39662091],
%  [ 0.47638943, -0.84065121, -0.25760173],
%  [ 0.47099721, -0.87496509, -0.11223954],
%  [ 0.45168541, -0.89145525,  0.03588636],
%  [ 0.4187315,  -0.88945368,  0.18312861],
%  [ 0.37279828, -0.86881278,  0.32586163],
%  [ 0.31490067, -0.82988677,  0.46057086],
%  [ 0.24637026, -0.77350927,  0.5839393 ],
%  [ 0.16881581, -0.70096385,  0.69292922],
%  [ 0.08407909, -0.6139465,   0.78485693],
%  [-0.00581359, -0.5145197,   0.85745885],
%  [-0.09870364, -0.40505854,  0.90894729],
%  [-0.19235505, -0.28818992,  0.93805442],
%  [-0.28451093, -0.16672595,  0.94406355],
%  [-0.37295028, -0.04359308,  0.9268267 ],
%  [-0.4555439,   0.07824156,  0.8867683 ],
%  [-0.5371563,   0.08847965,  0.83882922],
%  [-0.58613094,  0.09341208,  0.80481346],
%  [-0.60213707,  0.09312635,  0.79294289],
%  [-0.58525511,  0.08775319,  0.80608674],
%  [-0.5353643,   0.0773928,   0.84106802],
%  [-0.45281118,  0.06223889,  0.88943148],
%  [-0.3398983,   0.0428116,   0.93948726],
%  [-0.20220317,  0.02014074,  0.97913647],
%  [-0.04888339, -0.00422233,  0.99879557]];
p= [[-0.57312303,  0.53178046,  0.6234898 ],
       [-0.57848623,  0.48525912,  0.65565026],
       [-0.58276567,  0.4368677 ,  0.68522316],
       [-0.58594236,  0.38677746,  0.7120918 ],
       [-0.58800173,  0.33516701,  0.73615015],
       [-0.58893364,  0.2822215 ,  0.75730324],
       [-0.58873243,  0.22813181,  0.7754676 ],
       [-0.58739696,  0.17309373,  0.79057155],
       [-0.58493056,  0.11730711,  0.80255547],
       [-0.58134104,  0.06097503,  0.81137207],
       [-0.57664066,  0.0043029 ,  0.81698656],
       [-0.57084604, -0.05250241,  0.81937677],
       [-0.56397813, -0.10923341,  0.81853328],
       [-0.55606209, -0.16568288,  0.81445941],
       [-0.5471272 , -0.22164477,  0.80717124],
       [-0.53720674, -0.27691506,  0.79669754],
       [-0.52633781, -0.33129261,  0.78307963],
       [-0.51456126, -0.38458001,  0.76637127],
       [-0.50192142, -0.43658447,  0.74663839],
       [-0.48846601, -0.48711858,  0.72395887],
       [-0.47424587, -0.53600118,  0.69842222],
       [-0.40683915, -0.62427028,  0.66690968],
       [-0.33576038, -0.70283795,  0.62712342],
       [-0.26242347, -0.77071649,  0.58062898],
       [-0.18819559, -0.82732742,  0.52925586],
       [-0.11432892, -0.87251341,  0.47502552],
       [-0.04189881, -0.9065231 ,  0.42007185],
       [ 0.02824678, -0.92996663,  0.36655721],
       [ 0.09552095, -0.9437416 ,  0.31658734],
       [ 0.15960929, -0.94893149,  0.27212848],
       [ 0.22045466, -0.94668243,  0.23493003],
       [ 0.27821292, -0.93806909,  0.2064557 ],
       [ 0.33318133, -0.92396516,  0.18782593],
       [ 0.38570646, -0.90493752,  0.17977376],
       [ 0.43608353, -0.88118246,  0.18261604],
       [ 0.48446269, -0.85251709,  0.19624094],
       [ 0.53077742, -0.81842892,  0.22011232],
       [ 0.57470612, -0.77817518,  0.25329088],
       [ 0.61567118, -0.73091434,  0.29447109],
       [ 0.65287258, -0.67584844,  0.34203256],
       [ 0.68534826, -0.61235607,  0.3941038 ],
       [ 0.65597113, -0.60822873,  0.44694483],
       [ 0.62380597, -0.6023622 ,  0.49802197],
       [ 0.58897116, -0.59477538,  0.54713365],
       [ 0.55159612, -0.58549423,  0.59408604],
       [ 0.51182083, -0.57455167,  0.63869384],
       [ 0.46979511, -0.56198734,  0.68078101],
       [ 0.42567808, -0.54784747,  0.72018145],
       [ 0.37963738, -0.53218469,  0.75673966],
       [ 0.33184856, -0.51505774,  0.79031137],
       [ 0.28249428, -0.49653128,  0.82076407],
       [ 0.26273112, -0.45799367,  0.84924328],
       [ 0.24123638, -0.41637536,  0.87660514],
       [ 0.21809362, -0.37184819,  0.90231042],
       [ 0.19341428, -0.32463509,  0.92585257],
       [ 0.16733682, -0.27500806,  0.94676763],
       [ 0.140025  , -0.22328457,  0.96464346],
       [ 0.11166531, -0.16982252,  0.97912776],
       [ 0.08246382, -0.11501394,  0.9899351 ],
       [ 0.05264234, -0.05927776,  0.99685251],
       [ 0.02243422, -0.00305164,  0.99974366]];
xx = p(:,1)
yy = p(:,2)
zz = p(:,3)
    plot3(xx,yy,zz,'-','markersize',80)
    alpha('0.5')